home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / misc / artm2_04.lha / ARTM / Install_ARTM < prev   
Encoding:
Text File  |  1994-01-13  |  6.4 KB  |  164 lines
  1. ;  *** ARTM installation scipt ***
  2.  
  3. (welcome "Welcome to the ARTM installation!")
  4.  
  5. (
  6.         ;get destination dir for ARTM executable
  7.         (set mydest
  8.                 (askdir
  9.                         (prompt "Select the directory where you want to put the ARTM executable.")
  10.                         (help   "The directory where you store the executable "
  11.                                 "should be easily accessible via WorkBench or CLI/Shell.\n\n"
  12.                                 @askfile-help
  13.                         )
  14.                         (default "C:")
  15.                         (disk)
  16.                 )
  17.         )
  18.  
  19.         (set @default-dest mydest)
  20.  
  21.         (set mmdest (tackon mydest "ARTM"))
  22.  
  23.         (
  24.                 (if (= 1 (exists mmdest))
  25.                         (
  26.                                 (if (= 0
  27.  
  28.                                         (askbool
  29.                                                 (prompt "You have already installed ARTM. Do you wish to overwrite it?\n\n")
  30.                                                 (help @askbool-help)
  31.                                                 (default 1)
  32.                                                 (choices "Continue" "Abort")
  33.                                         ))
  34.  
  35.                                 (abort "Okay, I didn't overwrite the executable.")
  36.                                 )
  37.  
  38.                         )
  39.  
  40.                 )
  41.         )
  42.  
  43.         (copyfiles
  44.                 (prompt ("Copying ARTM executable to %s." mydest))
  45.                 (help @copyfiles-help)
  46.                 (source "ARTM")
  47.                 (dest mydest)
  48.                 (infos)
  49.         )
  50.  
  51. )
  52.  
  53.  
  54. (
  55.         ;Copy Docs
  56.  
  57.         (if
  58.                 (set qval
  59.                         (askoptions
  60.                                 (prompt "Please choose which docs you want to have installed! "
  61.                                         "(Or choose none to have no docs installed!)")
  62.                                 (choices
  63.                                         "English Docs"
  64.                                         "German Docs"
  65.                                 )
  66.                                 (default 3)
  67.                                 (help
  68.                                         "Not installing the docs is unwise because you could have "
  69.                                         "questions while using ARTM. Choosing the "
  70.                                         "documentation in your favourite language is sufficient.\n\n"
  71.                                         @askoptions-help
  72.                                 )
  73.                         )
  74.                 )
  75.  
  76.                 (
  77.                         (set docsdest
  78.                                 (askdir
  79.                                         (prompt "Select the directory where you want to put the docs.")
  80.                                         (help
  81.                                                 "You may store the docs where you usually store docs or "
  82.                                                 "in the directory where ARTM resides in.\n\n"
  83.                                                 @askfile-help
  84.                                         )
  85.                                         (default mydest)
  86.                                 )
  87.                         )
  88.  
  89.                         (if (IN qval 0)
  90.                                 (copyfiles
  91.                                         (prompt ("Copying english docs to %s." docsdest))
  92.                                         (help @copyfiles-help)
  93.                                         (source "english.doc/ARTM.doc")
  94.                                         (dest docsdest)
  95.                                         (infos)
  96.                                 )
  97.                         )
  98.  
  99.                         (if (IN qval 1)
  100.                                 (copyfiles
  101.                                         (prompt ("Copying german docs to %s." docsdest))
  102.                                         (help @copyfiles-help)
  103.                                         (source "german.doc/ARTM.dok")
  104.                                         (dest docsdest)
  105.                                         (infos)
  106.                                 )
  107.                         )
  108.                 )
  109.         )
  110. )
  111.  
  112. (
  113.         ;install LOCALEs
  114.  
  115.         (set guidedir "LOCALE:HELP/")
  116.  
  117.         (if (= 2 (exists "LOCALE:HELP/" (noreq)))
  118.                 (if
  119.                         (set qval
  120.                                 (askoptions
  121.                                         (prompt "Please choose which Guide you want to have "
  122.                                                 "installed! "
  123.                                                 "(Or choose none to have no locale installed!)")
  124.                                         (choices
  125.                                                 "Deutsch (german)"
  126.                                                 "English (english)"
  127.                                         )
  128.  
  129.                                         (default 7)
  130.                                         (help
  131.                                                 "It is sufficient to install the locale(s) of the language(s) "
  132.                                                 "that you specified as 'preferred' in the locale-preferences "
  133.                                                 "editor. \n\n"
  134.                                                 @askoptions-help
  135.                                         )
  136.                                 )
  137.                         )
  138.                 (
  139.                         (if (IN qval 0)
  140.                                 (copyfiles
  141.                                         (prompt ("Copying german guide to %s." guidedir))
  142.                                         (help @copyfiles-help)
  143.                                         (source "german.doc/ARTM.guide")
  144.                                         (dest guidedir)
  145.                                         (infos)
  146.                                 )
  147.                         )
  148.                         (if (IN qval 1)
  149.                                 (copyfiles
  150.                                         (prompt ("Copying english guide to %s." guidedir))
  151.                                         (help @copyfiles-help)
  152.                                         (source "english.doc/ARTM.guide")
  153.                                         (dest guidedir)
  154.                                         (infos)
  155.                                 )
  156.                         )
  157.  
  158.                 )
  159.  
  160.                 )
  161.         )
  162. )
  163.  
  164.